program test_json
    use json_module
    implicit none
  
    type(json_value), pointer :: json
  
    ! 初始化 JSON 模块
    call json_initialize(json)
  
    ! 创建一个 JSON 对象
    call json_create_object(json)
  
    ! 向 JSON 对象添加一个键值对
    call json_add(json, 'test_key', 'test_value')
  
    ! 输出 JSON 对象到控制台
    call json_print(json)
  
    ! 清理并释放 JSON 对象
    call json_destroy(json)
  
    ! 终止 JSON 模块
    call json_finalize()
end program test_json  